'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 24 November 2011 at 2:01:42 pm'!TestCase subclass: #TesteCaixa	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Sokoban-Teste'!!TesteCaixa methodsFor: 'as yet unclassified' stamp: 'lol 11/23/2011 16:51'!testeConstrutorAlternativo	| caixa |		caixa := Caixa novaNaPosicao: (2@2).		self assert: (caixa posicao) equals: (2@2).		caixa posicao: (4@1).		self assert: (caixa posicao) equals: (4@1) .		! !